home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / s85xx / s8504a.d64 / anp. hi-eddi (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  263b  |  11 lines
  1. 600 INPUT"[CLR,DOWN]NUMMER DES BILDES";D:
  2. 610 FOR C=1 TO 7:Z=PEEK(8085+C)
  3. 620 IF Z=D THEN G=32*D:GOTO650
  4. 640 NEXT
  5. 650 IF A=5 THEN A=4:LOAD"HI-PRINT",8,1
  6. 660 POKE3340,G:POKE3336,32:SYS3328:POKE53265,59:POKE53272,24
  7. 665 SYS3383
  8. 670 POKE3340,32:POKE3336,G:SYS3328:POKE53265,155:POKE53272,21
  9. 680 IF A=5 THEN RETURN
  10. 690 A=1 GOTO 50
  11.